home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / Start.p < prev    next >
Text File  |  1995-09-12  |  2KB  |  103 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 10:31:53 PM }
  2. {
  3.      File:        Start.p
  4.  
  5.      Contains:    Start Manager Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT Start;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __START__}
  26. {$SETC __START__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. TYPE
  36.     DefStartRec = RECORD
  37.         CASE INTEGER OF
  38.         0: (
  39.             sdExtDevID:                    SignedByte;
  40.             sdPartition:                SignedByte;
  41.             sdSlotNum:                    SignedByte;
  42.             sdSRsrcID:                    SignedByte;
  43.            );
  44.         1: (
  45.             sdReserved1:                SignedByte;
  46.             sdReserved2:                SignedByte;
  47.             sdRefNum:                    INTEGER;
  48.            );
  49.     END;
  50.  
  51.     DefStartPtr = ^DefStartRec;
  52.  
  53.     DefVideoRec = RECORD
  54.         sdSlot:                    SignedByte;
  55.         sdsResource:            SignedByte;
  56.     END;
  57.  
  58.     DefVideoPtr = ^DefVideoRec;
  59.  
  60.     DefOSRec = RECORD
  61.         sdReserved:                SignedByte;
  62.         sdOSType:                SignedByte;
  63.     END;
  64.  
  65.     DefOSPtr = ^DefOSRec;
  66.  
  67.  
  68. PROCEDURE GetDefaultStartup(paramBlock: DefStartPtr);
  69.     {$IFC NOT GENERATINGCFM}
  70.     INLINE $205F, $A07D;
  71.     {$ENDC}
  72. PROCEDURE SetDefaultStartup(paramBlock: DefStartPtr);
  73.     {$IFC NOT GENERATINGCFM}
  74.     INLINE $205F, $A07E;
  75.     {$ENDC}
  76. PROCEDURE GetVideoDefault(paramBlock: DefVideoPtr);
  77.     {$IFC NOT GENERATINGCFM}
  78.     INLINE $205F, $A080;
  79.     {$ENDC}
  80. PROCEDURE SetVideoDefault(paramBlock: DefVideoPtr);
  81.     {$IFC NOT GENERATINGCFM}
  82.     INLINE $205F, $A081;
  83.     {$ENDC}
  84. PROCEDURE GetOSDefault(paramBlock: DefOSPtr);
  85.     {$IFC NOT GENERATINGCFM}
  86.     INLINE $205F, $A084;
  87.     {$ENDC}
  88. PROCEDURE SetOSDefault(paramBlock: DefOSPtr);
  89.     {$IFC NOT GENERATINGCFM}
  90.     INLINE $205F, $A083;
  91.     {$ENDC}
  92. PROCEDURE SetTimeout(count: INTEGER);
  93. PROCEDURE GetTimeout(VAR count: INTEGER);
  94.  
  95. { $ALIGN RESET}
  96. { $POP}
  97.  
  98. {$ENDC} {__START__}
  99.  
  100.  IMPLEMENTATION
  101.  END.
  102.  
  103.